home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Frank Lloyd…ght - America's Architect
/
Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso
/
pre
/
flw
/
shared.dir
/
01064_Script_1064
< prev
next >
Wrap
Text File
|
1994-11-15
|
11KB
|
369 lines
on FrankNavPress
global btnsuccess, nowFrame, currIntro
global b1Up, b2Up, b3Up, b4Up, b5Up, b6Up, nullUp, null5Up, linkBarOn
global b1Dn, b2Dn, b3Dn, b4Dn, b5Dn, b6Dn, nullDn, null5Dn, bRest
global b1Tx, b2Tx, b3Tx, b4Tx, b5Tx, b6Tx, null3Tx, null5Tx, currMM
global indexFrame, helpFrame, lastMovie, lastFrame, reEntry, dialogOn
global helpMov, hiframe
global HMOpen,HMOBJ,helpFlag -- is used for xmit DLL
set btnsuccess = FALSE
if dialogOn = FALSE then
if the mouseV > 449 and the mouseV < 476 then
if the mouseH > 348 and the mouseH < 372 then
set gBtn = "b1"
else if the mouseH > 394 and the mouseH < 419 then
set gBtn = "b2"
else if the mouseH > 440 and the mouseH < 466 then
set gBtn = "b3"
else if the mouseH > 486 and the mouseH < 512 then
set gBtn = "b4"
else if the mouseH > 532 and the mouseH < 558 then
set gBtn = "b5"
else if the mouseH > 578 and the mouseH < 604 then
set gBtn = "b6"
else
set gBtn = "b0"
end if
--sound stop 1
else
set gBtn = "b0"
end if
if gBtn = "b3" then
if chars(nowFrame,12,12) = "f" or chars(nowFrame,12,12) = "n" then
set gBtn = "null"
end if
else if gBtn = "b5" then
if chars(nowFrame,12,12) = "u" or chars(nowFrame,12,12) = "n" then
set gBtn = "null"
end if
end if
if gBtn <> "b0" then
do "set the castNum of sprite 23 to" && gBtn & "dn"
updateStage
end if
put the timer + 10 into time
repeat while the timer < time
end repeat
repeat while the stillDown
if the mouseV > 449 and the mouseV < 476 then
if the mouseH > 348 and the mouseH < 372 then
set gBtn = "b1"
else if the mouseH > 394 and the mouseH < 419 then
set gBtn = "b2"
else if the mouseH > 440 and the mouseH < 466 then
set gBtn = "b3"
else if the mouseH > 486 and the mouseH < 512 then
set gBtn = "b4"
else if the mouseH > 532 and the mouseH < 558 then
set gBtn = "b5"
else if the mouseH > 578 and the mouseH < 604 then
set gBtn = "b6"
else
set gBtn = "b0"
end if
else
set gBtn = "b0"
end if
if gBtn = "b2" then
if (chars(nowFrame,1,2) = "hi") then
if chars(nowFrame,6,8) = "ind" then
set gBtn = "null"
end if
end if
else if gBtn = "b3" then
if chars(nowFrame,12,12) = "f" or chars(nowFrame,12,12) = "n" then
set gBtn = "null"
end if
else if gBtn = "b5" then
if chars(nowFrame,12,12) = "u" or chars(nowFrame,12,12) = "n" then
set gBtn = "null"
end if
else if gBtn = "b6" then
if chars(nowFrame,6,8) <> "ind" then
if (chars(nowFrame,1,2) = "hi") then
set gBtn = "null"
end if
end if
end if
if gBtn = "b0" then
set the castNum of sprite 23 to bRest
set btnSuccess = FALSE
else
do "set the castNum of sprite 23 to" && gBtn & "dn"
set btnSuccess = TRUE
end if
updateStage
end repeat
if gBtn <> "b0" then
do "set the castNum of sprite 23 to" && gBtn & "up"
set btnSuccess to TRUE
end if
updateStage
set jmpFlag = FALSE
--ò THIS IS THE SOUND STOP, OK?
sound stop 1
if btnSuccess = TRUE and gBtn = "b1" then
updateStage
set reEntry = TRUE
saveLocals
--ò REMOVED a line converting at, ch, and de to ww... EB 9/9
if chars(nowFrame,1,2) = "hi" then
--set helpMov = 1
repeat with i = 3 to 24
puppetSprite i, FALSE
end repeat
go to frame "hi000quit00n°°"
else
set helpMov = 0
go to frame "hi000quit00n°°" of movie "FLWHI"
end if
end if
if btnsuccess = TRUE and gBtn = "b2" then
updateStage
set reEntry = TRUE
saveLocals
--ò FIXED getting to Index from Help... EB 9/9
if chars(nowFrame,1,2) = "hi" then
set helpMov = 1
set hiFrame = nowFrame
repeat with i = 3 to 15
puppetSprite i, FALSE
end repeat
go to frame "hi001indiii°°°"
else
set helpMov = 0
go to frame "hi001indiii°°°" of movie "FLWHI"
end if
end if
if btnsuccess = TRUE and gBtn = "b3" then
--ò UNCOMMENTED the following sound... EB 9/9
--ò REVISED sound handler to exclude Life and Times... EB 9/13
--ò RE-COMMENTED the following sound... EB 9/21
if (chars(nowFrame,12,12) = "n") or (chars(nowFrame,12,12) = "f") then
beep
else
do chars(nowFrame,1,2) & "BackStep"
end if
end if
if Btnsuccess = TRUE and gBtn = "b4" then
updateStage
set btnsuccess = FALSE
------
if helpMov = 1 then
set helpMov = 0
repeat with i = 4 to 19
puppetSprite i, FALSE
end repeat
go to frame hiFrame
else if (chars(nowFrame,9,11) = "hhh") or (chars(nowFrame,9,11) = "iii") then
set helpMov = 0
go to frame lastFrame of movie lastMovie
else if chars(nowFrame,1,2) = "se" then
if chars(nowFrame,3,5) = "mai" then
go to frame "mmmai000000f°°" of movie "FLWMM"
else
gUnPuppet
go to frame "semai000000f°°" of movie "FLWSEO"
end if
updateStage
else
if currMM <> "FLWMM" then
go to movie currMM
else
go to frame "mmmai000000f°°" of movie "FLWMM"
end if
end if
end if
if Btnsuccess = TRUE and gBtn = "b5" then
--ò UNCOMMENTED the following sound... EB 9/9
--ò REVISED sound handler to exclude Life and Times... EB 9/13
--ò RE-COMMENTED the following sound... EB 9/21
if (chars(nowFrame,12,12) = "n") or (chars(nowFrame,12,12) = "u") then
beep
else
--if chars(nowFrame,1,2) <> "LT" then
--puppetSound "NEXT.SC"
--updateStage
--end if
do chars(nowFrame,1,2) & "ForStep"
end if
end if
if Btnsuccess = TRUE and gBtn = "b6" then
updateStage
set reEntry = TRUE
saveLocals
if chars(nowFrame,6,8) = "ind" then
set helpMov = 1
set hiFrame = nowFrame
repeat with i = 7 to 15
puppetSprite i, FALSE
end repeat
go to frame "hi000mmhhhhf°°"
else
if chars(nowFrame,1,2) = "lb" or chars(nowFrame,1,2) = "rh" then
put "eh" into char 1 to 2 of nowFrame
end if
if chars(nowFrame,1,2) = "mm" then
set helpFrame = "hi000mmhhhhf°°"
else if chars(nowFrame,1,2) = "li" then
set helpFrame = "hi000lihhhhu°°"
else if nowFrame = "semai000000f°°" then
set helpFrame = "hi000semhhh°°°"
else if nowFrame = "chmai000000n°°" then
set helpFrame = "hi000wwhhhh°°°"
else
set helpFrame = "hi000" & chars(nowFrame,1,2) & "hhhh°°°"
end if
go to frame helpFrame of movie "FLWHI"
set helpFrame = "0"
end if
end if
end if
if the mouseCast = 1004 then
closeDialog
end if
flush
end FrankNavPress
on doState
global bFlag, nowFrame, seeAlsoNess, seeAlsoBlock, seeAlsoBox
global b1Up, b2Up, b3Up, b4Up, b5Up, b6Up, nullUp, null5Up
global b1Dn, b2Dn, b3Dn, b4Dn, b5Dn, b6Dn, nullDn, null5Dn, bRest
global b1Tx, b2Tx, b3Tx, b4Tx, b5Tx, b6Tx, null3Tx, null5Tx, lastBtn, linkWord
if the mouseV > 449 and the mouseV < 476 then
if the mouseH > 348 and the mouseH < 372 then
set gBtn = "b1"
if lastBtn <> "b1" then
set nowState = FALSE
set lastBtn = "b1"
end if
else if the mouseH > 394 and the mouseH < 419 then
set gBtn = "b2"
if lastBtn <> "b2" then
set nowState = FALSE
set lastBtn = "b2"
end if
else if the mouseH > 440 and the mouseH < 466 then
set gBtn = "b3"
if lastBtn <> "b3" then
set nowState = FALSE
set lastBtn = "b3"
end if
else if the mouseH > 486 and the mouseH < 512 then
set gBtn = "b4"
if lastBtn <> "b4" then
set nowState = FALSE
set lastBtn = "b4"
end if
else if the mouseH > 532 and the mouseH < 558 then
set gBtn = "b5"
if lastBtn <> "b5" then
set nowState = FALSE
set lastBtn = "b5"
end if
else if the mouseH > 578 and the mouseH < 604 then
set gBtn = "b6"
if lastBtn <> "b6" then
set nowState = FALSE
set lastBtn = "b6"
end if
else
set gBtn = "b0"
set lastBtn = "b0"
end if
else
set gBtn = "b0"
set lastBtn = "b0"
end if
--ò seeAlsoBlock added by EB 9/12 (for the benefit of LT QuickTime frames)
--ò seeAlsoBlock COMMENTED by EB 9/23
--if seeAlsoBlock <> TRUE then
if rollover(21) then
if seeAlsoNess = TRUE then
set the castNum of sprite 21 to 1047
set the locV of sprite 22 to the locV of sprite 21 - 138
set seeAlsoBox to TRUE
else
set the castNum of sprite 21 to 1050
set the locV of sprite 22 to the locV of sprite 21 + 12
set seeAlsoBox to FALSE
end if
else
set the castNum of sprite 21 to 1050
set the locV of sprite 22 to the locV of sprite 21 + 12
set seeAlsoBox to FALSE
end if
--end if
if gBtn = "b2" then
if (chars(nowFrame,1,2) = "hi") then
if chars(nowFrame,6,8) = "ind" then
set gBtn = "null"
end if
end if
else if gBtn = "b3" then
if (chars(nowFrame,12,12) = "n") or chars(nowFrame,12,12) = "f" then
set gBtn = "null"
end if
else if gBtn = "b5" then
if (chars(nowFrame,12,12) = "n") or chars(nowFrame,12,12) = "u" then
set gBtn = "null"
end if
else if gBtn = "b6" then
if chars(nowFrame,6,8) <> "ind" then
if (chars(nowFrame,1,2) = "hi") then
set gBtn = "null"
end if
end if
end if
if gBtn = "b0" then
set the castNum of sprite 23 to bRest
end if
if gBtn <> "b0" then
if nowState = FALSE then
do "set the castNum of sprite 23 to" && gBtn & "Up"
set bFlag = TRUE
end if
end if
if nowState = TRUE then
if gBtn = "b0" then
set the castNum of sprite 23 to bRest
set bFlag = FALSE
set nowState = FALSE
end if
end if
updateStage
end doState